home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)gb.d64 / blackjack 3.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  343 lines
  1. 5 GOTO15
  2. 6 "       [182][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][161]
  3. 7 "       ABS   * BLACKJACK *     GET
  4. 8 "       [182]                     [161]
  5. 9 "       ABS JERRY STURDIVANT    GET
  6. 10 "      [182] 552 SUMMIT RIDGE    [161]
  7. 11 "      ABS THE DALLES,OR 97058 GET
  8. 12 "      [182][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]
  9. 13 "
  10. 14 " [182][161]SEE PROGRAM INFORMATION AT 342[182][161]
  11. 15 [137] 303 [129] IN[129]MATI[145] #65
  12. 16 [131]99,119,120,226,249,239,228,224
  13. 17 MO[178]1000:[137] 20
  14. 18 [153]B$[163]7)"--- PRESS SPACE BAR ---"
  15. 19 [161]W$:[139]W$[178]""[167]19
  16. 20 MO[178]MO[172]10:[143] SHUFFLE COME IN HERE
  17. 21 [151]835,0:[151]834,0:[151]836,0
  18. 22 D[178][181](MO[173]256):[151]835,D:[151]834,MO[171]D[172]256:[151]836,BE
  19. 23 [153]"LOAD":[156]
  20. 24 A$[178]""
  21. 25 B$[178][200](A$,11)
  22. 26 C$[178][200](A$,8)
  23. 27 D$[178]"                                       "
  24. 28 QQ$[178]"A234567890JQK"
  25. 29 VV$[178]"(null)(null)(null)ATN"
  26. 30 MO[178]256[172][194](835)[170][194](834):BE[178][194](836)
  27. 31 MO[178]MO[173]10
  28. 32 [153]B$"     "[199](34)"...SHUFFLE.....SHUFFLE..."[199](34)
  29. 33 [141]99:[143] SHUFFLE
  30. 34 [137] 37
  31. 35 "  DEAL THE HAND, 4 CARDS
  32. 36 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  33. 37 [139] SB[179][177]0 [167] 40
  34. 38 [139] QA[178]2 [167] 204
  35. 39 [143] RESET FOR NEXT HAND
  36. 40 FB[178]0:SB[178]0:SM[178]0:SR[178]0:DBJ[178]0:E[178]0:F[178]0:G[178]0:H[178]0:[139] DO[178]1 [167] BE[178]BE[173]2
  37. 41 J[178]0:K[178]0:L[178]0:M[178]0:N[178]0:P[178]0:DO[178]0:QQ[178]0:QA[178]0:[139] MO[178][177]6000 [167] 222
  38. 42 [139] I[177]34 [167] 18
  39. 43 [153]A$""D$
  40. 44 G$[178][196](MO):[153]B$"YOU HAVE $"G$",PLACE YOUR BET  "BE
  41. 45 [153][163]26[170][195](G$)):[133]"ON";BE
  42. 46 [137] 212
  43. 47 [153]"LOAD"A$"YOU HOLD $"SH", YOUR BET IS $"BE
  44. 48 [143] PLAYER FIRST CARD
  45. 49 T[178]0:[153]A$;:[141]110:[141]125:A[178]NU:[141]128
  46. 50 [143] NOW GET DEALER FIRST CARD
  47. 51 [141]122:[153]"";:[141]110:[141]125;:[141]128:B[178]NU:[141]122
  48. 52 T[178]6:[153]""A$;:[141]110:[141]125:[141]128:C[178]NU:QQ[178]C%(I)
  49. 53 [143] NOW DEALER DOWN CARD
  50. 54 [141]122:[153]"";:[141]110:[141]125:D[178]NU:ZZ[178]C%(I):[141]122
  51. 55 [137] 58
  52. 56 "  CHECK DEALER FOR BLACKJACK
  53. 57 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  54. 58 [139] B[178]1 [167] [141] 170:[143] DEALER     HAS AN ACE SHOWING
  55. 59 [139] B[178]1 [175] D[177]9 [167] DBJ[178]1
  56. 60 [139] D[178]1 [175] B[177]9 [167] DBJ[178]1
  57. 61 [137] 64
  58. 62 "  CHECK PLAYER FOR BLACK JACK
  59. 63 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  60. 64 [139] A[178]1 [175] C[177]9 [167] 71
  61. 65 [139] C[178]1 [175] A[177]9 [167] 71
  62. 66 [137] 69
  63. 67 "  IF ONE OR BOTH HAVE BLACKJACK
  64. 68 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  65. 69 [139] DBJ[178]0 [167] [141]122:[137] 80
  66. 70 [153]C$"DEALER BLACKJACK":[141]231:[137] 76
  67. 71 [139] DBJ[178]1 [167] 75
  68. 72 [139] QA[178]1 [167] [153]"ONONBLACKJACK":[141]122:SB[178]1:FB[178]1:[141]239:[137] 187
  69. 73 [139] QA[178]2 [167] [153]"ONONONONONONONBLACKJACK":SB[178]2:[141]122:[141]239:[137] 197
  70. 74 [153]"PLAYER BLACKJACK":[141]122:[141]239:[137] 76
  71. 75 [153]"PUSH--NO WINNERS !!
  72. 76 GOSUB 290
  73. 77 GOTO 37:REM NEXT HAND
  74. 78 "  DECISION ON HIT OR HOLD
  75. 79 "  FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  76. 80 IF QA<>0 THEN 84
  77. 81 IF A=C OR  A>9 AND C>9 THEN PRINTB$"DO YOU WANT TO SPLIT ? (S)
  78. 82 [153]B$"YOU WANT ONE CARD FOR DOUBLE ? (D)
  79. 83 REM COME IN HERE AFTER HIT
  80. 84 PRINTB$"[145][145]DO YOU WANT A CARD ? (SPACE BAR)
  81. 85 [153]B$"DO YOU HOLD ? (H)
  82. 86 GET W$: IF W$="" THEN 86
  83. 87 IF W$=" "THEN 132:REM TAKE CARD
  84. 88 IF W$="H"THEN 151:REM HOLD
  85. 89 IF W$="D" AND T<12 AND QA=0 THEN GOTO 235
  86. 90 IF W$="S"AND A=C OR A>9 AND C>9         AND QA=0 THEN 227
  87. 91 GOTO 86
  88. 92 "  [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]
  89. 93 "  FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  90. 94 "  BEGIN ALL SUB ROUTINES
  91. 95 "  NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW
  92. 96 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  93. 97 "  SHUFFLE THE DECK
  94. 98 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  95. 99 [134] CK(52),C%(52)
  96. 100 [129] I[178]1 [164] 50:[143] LAST 2 NOT USED
  97. 101 X[178][187]([171]TI)
  98. 102 R%[178]52[172][187](1)[170]1
  99. 103 [139] CK(R%) [179][177] 0 [137] 102
  100. 104 C%(I)[178]R% : CK(R%)[178]1
  101. 105 [130]
  102. 106 [143] C%(1) THRU C%(50) ARE NUMBERS       1 THRU 52 IN RND ORDER
  103. 107 I[178]0:[153]"LOAD":[142]
  104. 108 "  ADDITIONAL CARDS HERE
  105. 109 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  106. 110 I[178]I[170]1
  107. 111 NUMBER[178]C%(I)
  108. 112 [139] NUMBER [177]39 [167] SUIT[178]4:NU[178]NU[171]39      :[137]118
  109. 113 [139] NUMBER [177]26 [167] SUIT[178]3:NU[178]NU[171]26      :[137]118
  110. 114 [139] NUMBER [177]13 [167] SUIT[178]2:NU[178]NU[171]13      :[137]118
  111. 115 SUIT[178]1:[137] 118:[143] NU=NU
  112. 116 "  TURN NUMBER INTO CARD & SUIT
  113. 117 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  114. 118 N$[178][202](QQ$,NU,1)
  115. 119 S$[178][202](VV$,SU,1):[142]
  116. 120 "  DELAY TIMER
  117. 121 "  [184][184][184][184][184][184][184][184][184][184][184]
  118. 122 [129]Q[178]1[164]200 :[130]:[142]
  119. 123 "  PUT THE CARD ON THE SCREEN
  120. 124 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  121. 125 [153][163]T)"(null)TANTANTANRIGHT$CMDCMDCMDCMDCMD(null)(null)  (null)CMDCMDCMDCMDCMD(null)(null)(null) (null)CMDCMDCMDCMDCMD(null) (null)(null)(null)CMDCMDCMDCMDCMD(null)  (null)(null)CMDCMDCMDCMDCMDMID$TANTANTAN(null)":[142]
  122. 126 "  PUT THE NUMBERS ON CARDS
  123. 127 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  124. 128 [139]N$[178]"0"[167]N$[178]"10":[153][163]T)"ONONONONON"N$[170]S$;:[153]"CMDCMDCMD"S$[170]N$:[142]
  125. 129 [153][163]T)"ONONONONON"N$;" ";S$;:[153]"CMDCMDCMD";:[153]S$;:[153]" "N$:[142]
  126. 130 "  PLAYER WANTS A CARD
  127. 131 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  128. 132 [153]B$"ONON"D$:[153]B$[170]D$:[153]B$""D$:[153]B$""D$:[153]
  129. 133 T[178]T[170]6:[139] T[177]28 [167] T[178]T[171]1:[139] T[177]35 [167] 151
  130. 134 [141] 110:[143] GET NEXT CARD
  131. 135 [139] T[178]12 [167] E[178]NU
  132. 136 [139] T[178]18 [167] F[178]NU
  133. 137 [139] T[178]24 [167] G[178]NU
  134. 138 [139] T[178]29 [167] H[178]NU
  135. 139 [139] T[178]34 [167] J[178]NU
  136. 140 [141] 125:[141] 128:[141]280
  137. 141 TT[178]A[170]C[170]E[170]F[170]G[170]H[170]J
  138. 142 [139] TT[177]21 [167] [153]"ONONONONONONONYOU HAVE"TT"YOU LOSE":[137] 145
  139. 143 [139] DO[178]1 [167] 151
  140. 144 [137] 84:[143] BACK FOR CHOICE
  141. 145 [139] QA[179][177]1 [167] [141] 231
  142. 146 [139] QA[178]1 [167] 187
  143. 147 [139] QA[178]2 [175] TA[179]22 [167] 197
  144. 148 [141] 290:[141] 122:[137] 37
  145. 149 "  'HOLD' CHECK PLAYERS POINTS
  146. 150 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  147. 151 [153]B$"ONON"D$:[153]B$[170]D$:[153]B$""D$:[153]B$""D$:[143] CLEAR CHOICES
  148. 152 [141]280:[143]FACE CARDS TO 10'S
  149. 153 TT[178]A[170]C[170]E[170]F[170]G[170]H[170]J
  150. 154 A[178]A[171](A[178]1)[172]10:[141]164:C[178]C[171](C[178]1)[172]10:[141]164:E[178]E[171](E[178]1)[172]10:[141]164
  151. 155 F[178]F[171](F[178]1)[172]10:[141]164:G[178]G[171](G[178]1)[172]10:[141]164:H[178]H[171](H[178]1)[172]10:[141]164
  152. 156 J[178]J[171](J[178]1)[172]10:[141]164
  153. 157 [153]"ONYOU HAVE"TT
  154. 158 [139] QA[178]1 [167] 187
  155. 159 [139] QA[178]2 [167] 197
  156. 160 [141] 290
  157. 161 [137] 243
  158. 162 "  SUB SUB  FOR 11000
  159. 163 "  [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  160. 164 R[178]A[170]C[170]E[170]F[170]G[170]H[170]J
  161. 165 [139] R[179]22 [167] SM[178]R
  162. 166 [139] SM [177] TT [167] TT[178]SM
  163. 167 [142]
  164. 168 "  INSURANCE
  165. 169 "  [184][184][184][184][184][184][184][184][184]
  166. 170 [139] A[178]1 [175] C[177]9 [167] [142]
  167. 171 [139] C[178]1 [175] A[177]9 [167] [142]:[143]        IF PLAYER BJ NO INSURANCE OFFER
  168. 172 [153]B$"INSURANCE ? (Y/N)"
  169. 173 [161]W$:[139]W$[178]""[167]173
  170. 174 [139] W$[179][177]"Y"[167] [153] B$D$:[142]:      [143] INSURANCE REFUSED
  171. 175 [139]SH[179]BE[173]2[167][153]B$D$"ON SORRY, NO CREDIT.":[129]W[178]1[164]2000:[130]:[153]B$D$:[142]
  172. 176 [139]D[177]9[167][153]B$D$:MO[178]MO[170]BE:[142]:[143] DEALER BJ GIVE $ NOW LOSE $ LATER
  173. 177 MO[178]MO[171]BE[173]2:[153]B$D$"ON NO BLACKJACK, YOU LOSE $"BE[173]2
  174. 178 [153]A$""D$
  175. 179 [153]A$"YOU HOLD $"SH[171]BE[173]2", YOUR BET IS $"BE
  176. 180 [129]W[178]1[164]2000:[130]:[153]B$D$:[142]
  177. 181 "  PLAYER SPLITS PAIR
  178. 182 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  179. 183 [153]A$;:[129]Q[178]1[164]6:[153][163]6)"     ":[130]
  180. 184 [153]A$"ON":[141]110:[141]125:[141]128
  181. 185 T[178]6:C[178]NU:QA[178]1:[153]B$""D$[170]B$""D$
  182. 186 [137] 80:[143] GO FOR DECISION
  183. 187 [153][163]20)"ON FIRST HAND
  184. 188 PRINTB$"--- PRESS KEY FOR SECOND HAND ---
  185. 189 TA[178]TT:TT[178]0:QA[178]2:E[178]0:F[178]0:G[178]0:H[178]0:J[178]0:SM[178]0
  186. 190 [161]W$:[139]W$[178]""[167]190
  187. 191 [153]B$:[143] CLEAR FIRST HAND AWY
  188. 192 [129] Q[178]1 [164] 11:[153]D$:[130]
  189. 193 [143] FIRST CARD,2 ED OF PAIR
  190. 194 T[178]0:[153]A$"ON":NU[178]QQ:[141]112:[141]125:[141]128:A[178]NU
  191. 195 T[178]6:[153]A$"ON":[141]110:[141]125:[141]128:C[178]NU:[143] SECOND CARD
  192. 196 [137] 80:[143] GO FOR DECISION
  193. 197 [153][163]20)"ON SECOND HAND
  194. 198 GOSUB 290
  195. 199 IF SB=2 AND FB=1 THEN 40
  196. 200 IF SB=2 AND TA>21 THEN 205
  197. 201 IF SB=1 AND TT>21 THEN 40
  198. 202 IF TA>21 AND TT>21 THEN 37
  199. 203 GOTO 243
  200. 204 IF SB=1 THEN 40
  201. 205 IF TA>21 THEN 209
  202. 206 IF DT=TA THEN PRINTB$"YOU HAVE"TA"PUSH FIRST HAND":GOTO 40
  203. 207 IF DT>TA AND DT<22 THEN 209
  204. 208 PRINTB$"YOU HAVE"TA"YOU WIN FIRST HAND":GOSUB218:GOTO 40
  205. 209 PRINTB$"YOU HAVE"TA"YOU LOSE FIRST HAND":GOSUB231:GOTO 40
  206. 210 "  MONEY
  207. 211 "  FREFREFREFREFRE
  208. 212 BE=ABS(INT(BE)):IFMO<=0THENPRINT"[147]"C$"         SORRY, YOUR BROKE.R[213]16":END
  209. 213 IF BE>200 THEN PRINT"[147]"C$"SORRY, $200 BETTING LIMIT.":GOTO 43
  210. 214 IF BE>MO THEN PRINT"[147]"C$"SORRY, NO CREDIT.":GOTO 43
  211. 215 SH=MO-BE:GOTO 47
  212. 216 "  WIN
  213. 217 "  USRUSRUSR
  214. 218 MO=MO+BE
  215. 219 RETURN
  216. 220 "  BREAK THE BANK
  217. 221 "  USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
  218. 222 FORQ=1TO1000:GETA$:NEXT
  219. 223 PRINT"[147]"B$"CONGRATULATIONS YOU HAVE BROKE THE BANK.
  220. 224 [153][163]11)"THIS TABLE IS CLOSED.RUN16":[128]
  221. 225 "  SPLIT TEST
  222. 226 "  [183][183][183][183][183][183][183][183][183][183]
  223. 227 [139] MO[179]BE[172]2 [167][153]B$"SORRY NOT ENOUGH MONEY, NO SPLIT":[137] 86
  224. 228 [137] 183
  225. 229 "  LOSE
  226. 230 "  [183][183][183][183]
  227. 231 MO[178]MO[171]BE
  228. 232 [142]
  229. 233 "  DOUBLE TEST
  230. 234 "  [183][183][183][183][183][183][183][183][183][183][183]
  231. 235 [139] MO[179]BE[172]2 [167] [153]B$"SORRY, NOT ENOUGH MONEY, NO DOUBLE.":[137] 86
  232. 236 DO[178]1:BE[178]BE[172]2:[137]132
  233. 237 "  BLACKJACK
  234. 238 "  [183][183][183][183][183][183][183][183][183]
  235. 239 MO[178]MO[170]BE[172]1.5
  236. 240 [142]
  237. 241 "  PLAY DEALERS HAND
  238. 242 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  239. 243 [141] 293
  240. 244 DT[178]B[170]D[170]K[170]L[170]M[170]N[170]P
  241. 245 [139] DT[177]21 [167] [153] C$ "DEALER HAS"DT:[137] 273
  242. 246 [139] DT[177]16 [167] [153] C$ "DEALER HAS"DT:[137] 269
  243. 247 B[178]B[171](B[178]1)[172]10:[141]263:D[178]D[171](D[178]1)[172]10:[141]263:K[178]K[171](K[178]1)[172]10:[141]263
  244. 248 L[178]L[171](L[178]1)[172]10:[141]263:M[178]M[171](M[178]1)[172]10:[141]263:N[178]N[171](N[178]1)[172]10:[141]263
  245. 249 P[178]P[171](P[178]1)[172]10:[141]263
  246. 250 [139] DT[177]16 [167] [153] C$ "DEALER HAS"DT:[137] 269
  247. 251 B[178]B[170](B[178]11)[172]10:D[178]D[170](D[178]11)[172]10:K[178]K[170](K[178]11)[172]10:L[178]L[170](L[178]11)[172]10
  248. 252 M[178]M[170](M[178]11)[172]10:N[178]N[170](N[178]11)[172]10:P[178]P[170](P[178]11)[172]10
  249. 253 T[178]T[170]6:[139] T[177]28 [167] T[178]T[171]1: [139]T[177]35 [167] 269
  250. 254 [141] 110
  251. 255 [139] T[178]12 [167] K[178]NU
  252. 256 [139] T[178]18 [167] L[178]NU
  253. 257 [139] T[178]24 [167] M[178]NU
  254. 258 [139] T[178]29 [167] N[178]NU
  255. 259 [139] T[178]34 [167] P[178]NU
  256. 260 [153]"":[141] 125:[141] 128:[141] 122:[141] 122:[137] 243
  257. 261 "  SUB SUB FOR 15000
  258. 262 "  [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  259. 263 U[178]B[170]D[170]K[170]L[170]M[170]N[170]P
  260. 264 [139] U[179]22 [167] SR[178]U
  261. 265 [139] SR[177]DT [167] DT[178]SR
  262. 266 [142]
  263. 267 "  COMPARE SCORES
  264. 268 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  265. 269 [139] TT[177]21 [167] 204
  266. 270 [139] SB[178]2 [167] 276
  267. 271 [139] DT[178]TT [167] [153]A$[163]12)"ONONPUSH":[137] 37
  268. 272 [139] DT[177]TT [167] [153]A$[163]12)"ONONYOU LOSE":[141]231:[137] 37
  269. 273 [139] TT[177]21 [167] 204
  270. 274 [139] SB[178]2 [167] 208
  271. 275 [137] 277
  272. 276 [139] TA[179]21 [167] 204
  273. 277 [153]A$[163]12)"ONONYOU WIN":[141]218:[137] 37
  274. 278 "  CHANGE PLAYERS FACE TO 10'S
  275. 279 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  276. 280 [139] A [177] 9 [167] A[178]10
  277. 281 [139] C [177] 9 [167] C[178]10
  278. 282 [139] E [177] 9 [167] E[178]10
  279. 283 [139] F [177] 9 [167] F[178]10
  280. 284 [139] G [177] 9 [167] G[178]10
  281. 285 [139] H [177] 9 [167] H[178]10
  282. 286 [139] J [177] 9 [167] J[178]10
  283. 287 [142]
  284. 288 "  PRINT DEALERS FACE CARD
  285. 289 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  286. 290 NU[178]ZZ:T[178]6:[141]112:[153]"":[141]128:[141]122:[142]
  287. 291 "  DEALERS FACES TO 10'S
  288. 292 "  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  289. 293 [139] B[177]9 [167] B[178]10
  290. 294 [139] D[177]9 [167] D[178]10
  291. 295 [139] K[177]9 [167] K[178]10
  292. 296 [139] L[177]9 [167] L[178]10
  293. 297 [139] M[177]9 [167] M[178]10
  294. 298 [139] N[177]9 [167] N[178]10
  295. 299 [139] P[177]9 [167] P[178]10
  296. 300 [142]
  297. 301 "  INFORMATION
  298. 302 "  [184][184][184][184][184][184][184][184][184][184][184]
  299. 303 [153]"LOAD":[156]:A[178]32767:B[178]1:C[178]33687:[139][194](57345)[178]86[167]A[178]1023:C[178]1943
  300. 304 [129]P[178]1[164]25:[129]J[178]1[164]8:[135]D
  301. 305 [129]I[178]1[164]40[169]B
  302. 306 [151]A[170]I,D:[130]I,J:B[178]39
  303. 307 [139]A[178]C[167]B[178]1
  304. 308 [140]:A[178]A[170]40:[130]
  305. 309 A[178]A[171]958:[151]A,160:[151]A[170]1,126:[151]A[170]40,126:[151]A[170]37,160:[151]A[170]36,124
  306. 310 [151]A[170]77,124:A[178]C[170]2:[151]A[171]40,123:[151]A,160:[151]A[170]1,123:[151]A[171]3,108
  307. 311 [151]A[170]36,108:[151]A[170]37,160
  308. 312 [153]""[163]7)"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$CMD(null)ON
  309. 313 PRINTTAB(7)"[221][157][221]  [211][216][218][193] BLACKJACK [211][216][218][193]  [221][157][221][145]
  310. 314 [153][163]7)"(null)CMDMID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  311. 315 PRINTTAB(10)"BY JERRY STURDIVANT
  312. 316 [153][163]5)"DO YOU WANT INFORMATION ? (Y/N)
  313. 317 GETQ$:IFQ$=""THEN 317
  314. 318 IFQ$="Y"THEN 320
  315. 319 GOTO 17
  316. 320 PRINT"[147]RULES DIFFER AMONG CASINOS,THE FOLLOWINGARE THE MOST POPULAR:
  317. 321 [153]"YOU CAN GO 'DOWN FOR DOUBLE' WITH ANY   NUMBER.
  318. 322 PRINT"YOU CAN SPLIT ANY PAIR.  YOU CAN ONLY   SPLIT ONCE.  YOU CANNOT";
  319. 323 PRINT" GO DOWN FOR     DOUBLE ON A SPLIT, OR BLACKJACK.
  320. 324 [153]"DEALER MUST HIT 16, AND STAND ON 17.
  321. 325 PRINT"BLACKJACK PAYS 1.5 TO 1.
  322. 326 [153]"CARD COUNTING WORKS. AT THE END OF A    HAND, IF THE 'DEALER' ";
  323. 327 [153]"HAS LESS THAN 18  CARDS LEFT, THE DECK WILL BE SHUFFLED.
  324. 328 PRINT"YOU MAY 'WATCH' A HAND BY BETTING '0'.
  325. 329 [153][163]10)"(PRESS SPACE BAR)
  326. 330 GETQ$:IFQ$=""THEN330
  327. 331 PRINT"[147]IF YOU WIN $5000 YOU HAVE 'BROKE THE    TABLE' AND THE TABLE";
  328. 332 PRINT" WILL CLOSE.
  329. 333 [153]"MAXIMUM BET IS $200, MINIMUM IS $1.
  330. 334 PRINT"FOR EASE OF PLAYING, YOU CAN REPEAT YOURPREVIOUS BET BY ";
  331. 335 PRINT"HITTING 'RETURN'. OTHER-WISE, ENTER THE AMOUNT YOU WISH TO BET."
  332. 336 PRINT"IF THE DEALER HAS AN ACE UP, YOU MAY BUYINSURANCE AGAINST";
  333. 337 PRINT" A DEALERS BLACKJACK   FOR 1/2 YOUR BET.
  334. 338 [153]"YOU HAVE $1000 TO START, GOOD LUCK.
  335. 339 PRINTTAB(10)"(PRESS SPACE BAR)
  336. 340 [161]Q$:[139]Q$[178]""[167]340
  337. 341 [137]17
  338. 342 "ABSGET IF YOU WANT THE OPTION OF               BLACKJACK ON SPLITS CHANGE
  339. 343 "[182][161] 186 AND 196 TO 'GOTO 64'
  340. 344 "ABSGET IF YOU WANT BLACKJACK TO PAY            DOUBLE CHANGE 239 TO
  341. 345 "[182][161] MO=MO+BE*2
  342. 64000 "ABSFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREGET        ABS      BLACKJACK               GET        ABS      JERRY STURDIVANT        GET        ABS   (null)  552 SUMMIT RIDGE     (null)  GET        ABS   (null)  THE DALLES OR  97058 (null)  GET        ABSNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWGET
  343.